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# ! /usr/local/bin/perl5 

# [1] read the mdxChanges file into an associative array: mdxChanges . 



# 1 mkm3dRev "NONE" 

# l~mkmApprovedBy "MIKE MARTYN" 

# l_mkmApprovedDate "12/05/02" 

#======U sage==== 

if (($#ARGV +1) <3) {&usage; exit;} 



$mdxChangesFile - $ARGV[0]; mm * . 

open (CHANGES, $mdxChangesFile) or die can t open , 
%mdxChanges = (); #first put empty into the hash 

while (<CHANGES>) { 

@line = split / /,$_, 2; 

#until ($line[l] =~ /^.*\"$/) { 

# push @mynewline, $line[l]; 

# print "@mynewline\n" ; 

# $line[l] = Qmynewline; 

# #$newline = <CHANGES>; ichomp $newline; #print $newline; 

# #$line[l] = $line[l] . " " . $newline; 

# print $line [1] ; 
#} 

if ($line[l] — /-\"(.*)\"$/) ( 
$mdxChanges{$line[0] } - $1; 
#$mdxChanges{$line[0] } = $line[l]; 

} 

print "CHANGES NEEDED \ (mdxChanges array\):\n"; 
@keys = keys %mdxChanges; 
foreach $key {keys %mdxChanges) { 

print $key, "=", $mdxChanges { $key } , "\n"; 

print "\n\nALL mkm INFOS AND VALUES IN^MI^FILEAn^^ = _ = = = . 
#== ======================== ============ 



# [3] open for read the MI file 
$mifile = $ARGV[1]; 

open (MIFILE, $mifile) or die "can't open original mifile\n , 

# [4] open for write the newMI file 
$newmifile = $mifile . ".new"; 

open (NEWMIFILE, ">$newmif ile" ) or die "can't open newmifile\n , 



#================— ===== 

1 Tsf find^ll ASSP elements, gen an array of element number to element info 
value 

%assp_array = (); 
while ($line = <MIFILE>) { 
if ($line =~ / A ASSP$/) { 
print NEWMIFILE $line; 
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$element_number = <MIFILE>; print NEWMIFILE $element_number ; chomp 
$ e 1 erne n t_number ; 

$line = <MIFILE>; 

until ($line =~ /*\\\~$/) { 

$element_value = $line; 

print NEWMIFILE $line; 

$line = <MIFILE>; 

} 

print NEWMIFILE $line; 

if ($element_value =~ /_mkm/ ) { 

$assp_array{$element_number} = $element__value; 

#$assp_array{$element_number} = $element__value; ^ ^ == ^ 



# = 



# [6] find all TEX elements, gen tex_element array for each TEX element 
Jelsif ($line =~ / A TEX$/) { 
$change_needed = 0; 
push @tex_element, $line; 

# Get to the infos list 
for ($i=0;$i<6;$i++) { 

$line = <MIFILE>; 

push @tex_element, $line; 

$count = $line; # The next $count lines are the info numbers that need to 
be checked against assp_array 

# Capture the infos list; inspect each info against the assp_array 
for ($i=0; $i<$count; $i++) { 

$line = <MIFILE>; 

push @tex element, $line; 

#compare $line to assp_arry; if match, set $change_needed to 1, put new 
text into $new_text 

#@keys = keys %assp_array; 
chomp $line; 
$info__num = $line; 

$new text = ""; . ^ 

#if one of the infos in the element infos matches one of the 

assp_infos, a change is needed. 

foreach $key (keys %assp_array) { 
if ($info_num =~ / A $key$/) { 

$newkey = $assp_array { $key } ; chomp $newkey; 
$change_needed =1; 

tprint "\nkey is: *$key* value is: *$mdxChanges { $newkey } * \n ; 
$new_text = $mdxChanges { $newkey } ; 

} 

#if ($assp_array{$line}) {print $assp_array { $line } ; } 

} 

$line = <MIFILE>; 

until ($line =~ { 

push @tex_element, $line; 

$line = <MIFILE>; 

} 

push @tex element, $line; 

#TEX element is completely captured and change_needed is recorded 

if ($change_needed) { #===a change is possibly needed... have to check the 

changes array 

# Write the new value to $#tex_array-2 
$info = $assp_array{ $info_num} ; 
chomp $info; 
if ($new_text) { 
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$new_text = "$new_text\n"; 

print ("\n", $info, " needs change from *", 
$tex element [ $#tex_element-2 ] , "* to: *", $new_text , "* " ) ; 

$tex_element [$#tex_element-2]=$new_text; 

} 

} 

print NEWMIFILE @tex_element; 
@tex__element = ( ) ; 
}else{ 

print NEWMIFILE $line; 

} 

} 

close MI FILE; 
close NEWMIFILE; 
unlink $mdxChangesFile ; 

#@keys = keys %assp_array; 

jfforeach $key (sort keys %assp_array) { 

# print $key, » = ■, $assp_array { $key } ; 

#} 

#========================================== = 



# -read TEX elements 

# -capture each TEX element's array of inf o_el erne nt_numbers 

# -check this inf o_element_numbers array against the assp_inf os_array 

# to lookup the info_text 

# -check the info_text against the changes array. 

# -if there is a match, get the 

# new tex value from the changes_array and write it 

# to the TEX element as newMI file is being written. 

# 

# changes_array I assp_inf os_array I TEX_element | 
tex_element_info_array I 

# 

# l__mkmRev XI I 5 l_mkmRev I 7 8 I 3 

# l_mkm3dRev X2 I 6 HP_BORDER I 2 I 5 

# l_mkmRevDescr AS ISSUED | 7 DOCU_PARAM#Rev Value | 0 ! 7 
i 

# 



# Each TEX element needs to be captured into a tex_element array 

# Each info number of the tex_element needs to be captured into a 
tex element infos array 

# Use each tex__inf o_array element as an index into the assp_inf os_array to 
lookup the 

# text value of that info 

# Check that info text value as an index into the associative changes__array 

# if there is a match (the TEX element needs to be rewritten) 

# take the text value from that element of the changes_array and 

# write it to the TEXT value of the TEX_element_array . 

# Write the adjusted TEX_element_array to the newMI file. 

# else 
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# write the tex_element to the newMI file. 

#===SUBROUTINES===== 
#===USAGE MESSAGE=== 
sub usage { 

$0 =~ s%.*/%%; 

print STDERR <<EOUsage; 

Usage: $0 <changes_f ile> <original MI file> uniqID 

EOUsage 

#\033&v3SUsage: $0 

} 



